var a,b,Re,Im: Vector; azero: double; begin a.SetIt(false,[1,2,3,4,5,6,7,8]); b.Hilbert(a); Re.RealPart(b); Im.ImagPart(b); azero := DotProd(Re,Im); // if Re is orthogonal to Im, azero becomes 0 end;